home *** CD-ROM | disk | FTP | other *** search
/ Ancient Asian Sex Secrets / Ancient Asian Sex Secrets.iso / mac / EROSPROM.Dxr / 00218.ls < prev    next >
Encoding:
Text File  |  1996-09-05  |  3.0 KB  |  145 lines
  1. on oldwind
  2.   global mywindow
  3.   if objectp(mywindow) then
  4.     forget(mywindow)
  5.   end if
  6.   set horzorigin to the stageLeft
  7.   set vertorigin to the stageTop
  8.   set myWindowrect to rect(horzorigin, vertorigin, horzorigin + 1, vertorigin + 1)
  9.   set mywindow to window "blkflash.dir"
  10.   set the rect of mywindow to myWindowrect
  11.   set the fileName of mywindow to "interact"
  12.   set the titleVisible of mywindow to 0
  13.   open(mywindow)
  14. end
  15.  
  16. on openwind
  17.   patchpal()
  18. end
  19.  
  20. on closewind
  21. end
  22.  
  23. on closeother
  24.   global mywindow
  25.   if objectp(mywindow) then
  26.     forget(mywindow)
  27.   end if
  28. end
  29.  
  30. on main
  31.   cursor(4)
  32.   if the machineType = 256 then
  33.     go("repc")
  34.   else
  35.     tran()
  36.     go("main")
  37.   end if
  38. end
  39.  
  40. on setnavi
  41.   cursor(0)
  42.   puppetSprite(21, 1)
  43.   puppetSprite(22, 1)
  44.   puppetSprite(23, 1)
  45. end
  46.  
  47. on navi
  48.   if rollOver(21) then
  49.     set the castNum of sprite 21 to 227
  50.     set the castNum of sprite 22 to 76
  51.     set the castNum of sprite 23 to 77
  52.     exit
  53.   end if
  54.   set the castNum of sprite 21 to 75
  55.   if rollOver(22) then
  56.     set the castNum of sprite 22 to 225
  57.     set the castNum of sprite 23 to 77
  58.     exit
  59.   end if
  60.   set the castNum of sprite 22 to 76
  61.   if rollOver(23) then
  62.     set the castNum of sprite 23 to 226
  63.     exit
  64.   end if
  65.   set the castNum of sprite 23 to 77
  66. end
  67.  
  68. on navib
  69.   if rollOver(21) then
  70.     set the castNum of sprite 21 to 223
  71.     set the castNum of sprite 22 to 53
  72.     set the castNum of sprite 23 to 51
  73.     exit
  74.   end if
  75.   set the castNum of sprite 21 to 52
  76.   if rollOver(22) then
  77.     set the castNum of sprite 22 to 224
  78.     set the castNum of sprite 23 to 51
  79.     exit
  80.   end if
  81.   set the castNum of sprite 22 to 53
  82.   if rollOver(23) then
  83.     set the castNum of sprite 23 to 222
  84.     exit
  85.   end if
  86.   set the castNum of sprite 23 to 51
  87. end
  88.  
  89. on NaviW
  90.   if rollOver(21) then
  91.     set the castNum of sprite 21 to 34
  92.     set the castNum of sprite 22 to 22
  93.     set the castNum of sprite 23 to 37
  94.     exit
  95.   end if
  96.   set the castNum of sprite 21 to 5
  97.   if rollOver(22) then
  98.     set the castNum of sprite 22 to 31
  99.     set the castNum of sprite 23 to 37
  100.     exit
  101.   end if
  102.   set the castNum of sprite 22 to 22
  103.   if rollOver(23) then
  104.     set the castNum of sprite 23 to 36
  105.     exit
  106.   end if
  107.   set the castNum of sprite 23 to 37
  108. end
  109.  
  110. on killpup
  111.   puppetSprite(1, 0)
  112.   puppetSprite(2, 0)
  113.   puppetSprite(3, 0)
  114.   puppetSprite(4, 0)
  115.   puppetSprite(5, 0)
  116.   puppetSprite(6, 0)
  117.   puppetSprite(7, 0)
  118.   puppetSprite(8, 0)
  119.   puppetSprite(9, 0)
  120.   puppetSprite(10, 0)
  121.   puppetSprite(11, 0)
  122.   puppetSprite(12, 0)
  123.   puppetSprite(18, 0)
  124.   puppetSprite(19, 0)
  125.   puppetSprite(21, 0)
  126.   puppetSprite(20, 0)
  127.   puppetSprite(22, 0)
  128.   puppetSprite(23, 0)
  129.   puppetSprite(27, 0)
  130.   killcurs()
  131. end
  132.  
  133. on killcurs
  134.   set the cursor of sprite 1 to 0
  135.   set the cursor of sprite 2 to 0
  136.   set the cursor of sprite 3 to 0
  137.   set the cursor of sprite 4 to 0
  138.   set the cursor of sprite 5 to 0
  139.   set the cursor of sprite 6 to 0
  140.   set the cursor of sprite 7 to 0
  141.   set the cursor of sprite 8 to 0
  142.   set the cursor of sprite 9 to 0
  143.   set the cursor of sprite 10 to 0
  144. end
  145.